home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / EasyPLUGINs / examples / dtpic_demo.e < prev    next >
Encoding:
Text File  |  1998-02-09  |  633 b   |  31 lines
  1. /*
  2.  
  3.   This source is Public Domain
  4.  
  5. */
  6.  
  7. MODULE 'easyplugins/dtpic', 
  8.        'tools/EasyGUI', 'tools/exceptions',
  9.        'utility/tagitem'
  10.  
  11. DEF dt1=NIL:PTR TO dtpic_plugin, dt2=NIL:PTR TO dtpic_plugin
  12.  
  13. PROC main() HANDLE
  14.  
  15.     NEW dt1.init([PLA_DTPic_Filename, 'dtpic_data/jupiter.bru', PLA_DTPic_Scale, TRUE, TAG_DONE])
  16.     NEW dt2.init([PLA_DTPic_Filename, 'dtpic_data/andes.bru', PLA_DTPic_Scale, FALSE, TAG_DONE])
  17.  
  18.   easyguiA('Test',
  19.             [ROWS,
  20.               [PLUGIN, {ignore}, dt1],
  21.               [PLUGIN, {ignore}, dt2]
  22.               ])
  23.  
  24. EXCEPT DO
  25.   report_exception()
  26.   END dt1
  27.   END dt2
  28. ENDPROC
  29.  
  30. PROC ignore() IS EMPTY
  31.